// Copyright (C) 1996, 1997 John W. Eaton
//
// This file is part of Octave.
//
// Octave is free software; you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2, or (at your option)
// any later version.
//
// Octave is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Octave; see the file COPYING.  If not, write to the Free
// Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
// 02110-1301, USA.

// -*- texinfo -*-
// @deftypefn {Function File} {} isscalar (@var{a})
// Return 1 if @var{a} is a scalar.  Otherwise, return 0.
// @seealso{size, rows, columns, length, isscalar, ismatrix}
// @end deftypefn

// Author: jwe

function retval = isscalar(x)

[nargout, nargin] = argn();

if (nargin == 1) then
  retval = prod (size (x)) == 1;
else
  error('isscalar (x)');
end
endfunction
